home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques7.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  74 lines
  1. VERSION 2.00
  2. Begin Form QUES7 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question7"
  6.    ClientHeight    =   3570
  7.    ClientLeft      =   2865
  8.    ClientTop       =   2010
  9.    ClientWidth     =   5520
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   3975
  13.    Left            =   2805
  14.    LinkTopic       =   "Form6"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   3570
  19.    ScaleWidth      =   5520
  20.    Top             =   1665
  21.    Width           =   5640
  22.    Begin CommandButton Command1 
  23.       Caption         =   "Press this button to end survey."
  24.       Default         =   -1  'True
  25.       Height          =   615
  26.       Index           =   3
  27.       Left            =   1080
  28.       TabIndex        =   0
  29.       Top             =   2400
  30.       Width           =   3255
  31.    End
  32.    Begin Label Label2 
  33.       BackColor       =   &H00800080&
  34.       Caption         =   "E-Quest - v1.0        SCOTTH@WAGGED.COM"
  35.       Height          =   255
  36.       Left            =   1320
  37.       TabIndex        =   2
  38.       Top             =   3360
  39.       Width           =   4215
  40.    End
  41.    Begin Label Label1 
  42.       Alignment       =   2  'Center
  43.       BackColor       =   &H00800080&
  44.       Caption         =   "Thank you for your time"
  45.       FontBold        =   -1  'True
  46.       FontItalic      =   0   'False
  47.       FontName        =   "MS Sans Serif"
  48.       FontSize        =   48
  49.       FontStrikethru  =   0   'False
  50.       FontUnderline   =   0   'False
  51.       ForeColor       =   &H0000FFFF&
  52.       Height          =   2175
  53.       Left            =   240
  54.       TabIndex        =   1
  55.       Top             =   120
  56.       Width           =   5055
  57.    End
  58. End
  59.  
  60. Sub Command1_Click (index As Integer)
  61.     Dim user As String
  62.     user = Environ$("ws")
  63.     Open "D:\PUB\ANS.TXT" For Append Access Write Shared As 1
  64.     Print #1, Date, user, 1, question1
  65.     Print #1, Date, user, 2, question2
  66.     Print #1, Date, user, 3, question3
  67.     Print #1, Date, user, 4, question4
  68.     Print #1, Date, user, 5, question5
  69.     Print #1, Date, user, 6, question6
  70.     Close #1
  71.     End
  72. End Sub
  73.  
  74.